home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / CONFIGCU.M < prev    next >
Encoding:
Text File  |  1994-04-10  |  627 b   |  24 lines
  1. MODULE T;
  2. (*$E MOS*)
  3.  
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5. FROM Console IMPORT WriteString, WriteLn, Read, KeyPressed;
  6. FROM XBIOS IMPORT ConfigureCursor;
  7.  
  8. VAR c: INTEGER; ch: CHAR;
  9.  
  10. BEGIN
  11.   c:= ConfigureCursor (-1, -1);
  12.   ASSEMBLER MOVE c,D0 BREAK END;
  13.   c:= ConfigureCursor (-1, 1);
  14.   WriteString ("warte...");
  15.   REPEAT UNTIL KeyPressed (); Read (ch); WriteLn;
  16.   c:= ConfigureCursor (-1, 0);
  17.   WriteString ("warte...");
  18.   REPEAT UNTIL KeyPressed (); Read (ch); WriteLn;
  19.   c:= ConfigureCursor (-1, 1);
  20.   WriteString ("warte...");
  21.   REPEAT UNTIL KeyPressed (); Read (ch); WriteLn;
  22.   WriteString ("end.");
  23. END T.
  24.